home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Apple II Magazines (PO)
/
Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].zip
/
Nibble Volume 12, No. 02 (1991-02)(MindCraft Publishing)(Side A)[a].po
/
SUPERTRACE.DEMO.bas
< prev
next >
Wrap
BASIC Source File
|
1996-12-24
|
421b
|
12 lines
10 REM ******************************
20 REM * SUPERTRACE.DEMO *
30 REM * COPYRIGHT(C) 1991 *
40 REM * MINDCRAFT PUBL. CORP. *
50 REM * CONCORD, MA 01742 *
60 REM ******************************
70 HOME :A = 0:A2$ = "This is a string."
80 A = A +1:A1$(A) = A2$
90 IF A <10 GOTO 80
100 B = 5
110 B = B +5: FOR I = 1 TO 20: NEXT : PRINT "B = "B
120 IF B <100 GOTO 110